home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / autokosten main (.txt) next >
Commodore BASIC  |  2022-10-26  |  13KB  |  614 lines
  1. 100 rem benzinkostenverwaltung und                         -statistik
  2. 110 rem thomas jensen  2224 burg
  3. 120 poke788,52
  4. 130 vic=53248
  5. 140 at=49272
  6. 150 pokevic+32,14
  7. 160 pokevic+33,6
  8. 170 pokevic+21,0
  9. 180 poke646,14
  10. 190 printchr$(142)chr$(8)
  11. 200 print"[147]bitte haben sie einen moment geduld"
  12. 210 print"ich lade zunaechst einige unterprogramme"
  13. 220 print"loading...";
  14. 230 ifpeek(49152)<>32thenload"autokosten mc",8,1
  15. 240 print"..."
  16. 250 ifpeek(836)<>3thenload"autokosten spr.",8,1
  17. 260 print"[147]"
  18. 270 pokevic+32,0
  19. 280 pokevic+33,0
  20. 290 fori=1to9
  21. 300 readb(i)
  22. 310 next
  23. 320 fori=0to6
  24. 330 poke2041+i,13
  25. 340 next
  26. 350 poke2040,14
  27. 360 pokevic+23,255
  28. 370 pokevic+29,255
  29. 380 pokevic+39,7
  30. 390 fori=2to8
  31. 400 pokevic+38+i,b(i)
  32. 410 next
  33. 420 pokevic+16,1
  34. 430 fori=0to7
  35. 440 pokevic+1+2*i,50
  36. 450 next
  37. 460 pokevic,42
  38. 470 pokevic+2,15
  39. 480 pokevic+4,55
  40. 490 pokevic+6,95
  41. 500 pokevic+8,135
  42. 510 pokevic+10,175
  43. 520 pokevic+12,215
  44. 530 pokevic+14,255
  45. 540 t$="bitte eine taste druecken !!!"
  46. 550 pokevic+21,255
  47. 560 sysat,0,6,"[158]thomas jensen (smily) presents :"
  48. 570 sysat,0,8,"[158]benzinkosten verwaltung und statistik"
  49. 590 fori=0to9
  50. 600 poke646,b(i)
  51. 610 sysat,0,12,t$
  52. 620 forj=1to60
  53. 630 next
  54. 640 next
  55. 650 geta$
  56. 660 ifa$<>""then690
  57. 670 goto590
  58. 680 data,11,12,15,1,15,12,11,
  59. 690 poke646,14
  60. 700 pokevic+21,0
  61. 710 pokevic+32,14
  62. 720 pokevic+33,6
  63. 730 print"[147]"
  64. 740 open1,3
  65. 750 d=200:rem max. anzahl eintraege
  66. 760 dimda$(d),ki(d),pr(d),ge(d),li(d),ve(d),kg(d)
  67. 770 gosub1210
  68. 780 goto1580
  69. 790 in$=""
  70. 800 cc=0
  71. 810 sp=peek(211)
  72. 820 ze=peek(214)
  73. 830 ms=0
  74. 840 poke204,0
  75. 850 getg$
  76. 860 ifg$=""then850
  77. 870 g=asc(g$)
  78. 880 ifg=13then1000
  79. 890 ifg=47org=148then850
  80. 900 ifg=20theng=157:g$="[157]"
  81. 910 ifg=29andpeek(211)<=sp+lg-1thengosub1110:goto850
  82. 920 ifg=157andpeek(211)>spthengosub1110:goto850
  83. 930 ifal=1then960
  84. 940 ifg>45andg<58andcc<lgandpeek(211)<=sp+lg-1thencc=cc+1:gosub1110:goto850
  85. 950 goto850
  86. 960 ifg<46or(g>57andg<65)or(g>90andg<193)org>218then850
  87. 970 ifcc<lgandpeek(211)<=sp+lg-1thencc=cc+1:gosub1110:goto850
  88. 980 ifpeek(211)<sp+lgthengosub1110
  89. 990 goto850
  90. 1000 poke205,2
  91. 1010 ifpeek(207)<>0then1010
  92. 1020 poke204,1
  93. 1030 poke211,sp
  94. 1040 poke214,ze
  95. 1050 ifcc=0thenreturn
  96. 1060 get#1,g$
  97. 1070 ifg$=chr$(13)thenin$=left$(in$+"            ",lg):return
  98. 1080 in$=in$+g$
  99. 1090 iflen(in$)<lgthen1060
  100. 1100 return
  101. 1110 poke205,2
  102. 1120 ifpeek(207)<>0then1120
  103. 1130 printg$;
  104. 1140 ifpeek(211)>msthenms=peek(211)
  105. 1150 return
  106. 1160 sysat,2,5,"                                    "
  107. 1170 fori=8to18
  108. 1180 sysat,2,i,"                                    "
  109. 1190 next
  110. 1200 return
  111. 1210 poke768,185
  112. 1220 open15,8,15
  113. 1230 close15
  114. 1240 poke768,139
  115. 1250 ifst<>-128then1290
  116. 1260 sysat,2,22,"status : floppy nicht eingeschaltet "
  117. 1270 gosub1370
  118. 1280 goto1580
  119. 1290 open15,8,15
  120. 1300 input#15,n,fe$,tr,se
  121. 1310 sysat,2,22,"                                    "
  122. 1320 sysat,2,22,"status :";n;"[157] "fe$;tr;"[157] "se;" "
  123. 1330 ifn=62thenna$=""
  124. 1340 ifn<>0thengosub1370:close15:goto1690
  125. 1350 close15
  126. 1360 return
  127. 1370 mn$="zum fortsetzen bitte taste"
  128. 1380 poke198,0
  129. 1390 gosub1420
  130. 1400 sys49298
  131. 1410 return
  132. 1420 sysat,2,21,"                                    "
  133. 1430 sysat,2,21,mn$
  134. 1440 return
  135. 1450 open4,4
  136. 1460 poke768,61
  137. 1470 print#4
  138. 1480 close4
  139. 1490 poke768,139
  140. 1500 ifst<>-128andst<>-125then1540
  141. 1510 sysat,2,22,"status : drucker nicht eingeschaltet"
  142. 1520 gosub1370
  143. 1530 goto1690
  144. 1540 open6,4,6
  145. 1550 print#6,chr$(0)
  146. 1560 close6
  147. 1570 return
  148. 1580 a$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  149. 1590 sysat,1,1,"[207]";a$;"[208]"
  150. 1600 fori=2to22
  151. 1610 sysat,1,i,"[180]"
  152. 1620 sysat,38,i,"[170]"
  153. 1630 next
  154. 1640 sysat,1,20,"[207]";a$;"[208]"
  155. 1650 a$="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  156. 1660 sysat,1,23,"[204]";a$;"[186]"
  157. 1670 sysat,1,6,"[204]";a$;"[186]"
  158. 1680 sysat,1,3,"[204]";a$;"[186]"
  159. 1690 gosub1160
  160. 1700 sysat,2,2,"benzinkosten 1.0  name: ";na$
  161. 1710 wa=1
  162. 1720 ze=8
  163. 1730 mn$="bewegen  up/down     auswahl  return"
  164. 1740 gosub1420
  165. 1750 sysat,10,5,"h a u p t m e n u e"
  166. 1760 sysat,10,8,"---> daten eingeben"
  167. 1770 sysat,15,9,"letzter eintrag"
  168. 1780 sysat,15,10,"eintrag finden"
  169. 1790 sysat,15,11,"statistik"
  170. 1800 sysat,15,12,"daten laden"
  171. 1810 sysat,15,13,"daten sichern"
  172. 1820 sysat,15,14,"inhaltsverzeichnis"
  173. 1830 sysat,15,15,"eintrag loeschen"
  174. 1840 sysat,15,16,"datei einrichten"
  175. 1850 sysat,15,17,"ende"
  176. 1860 gosub1210
  177. 1870 poke198,0
  178. 1880 getwa$
  179. 1890 ifwa$=""then1880
  180. 1900 ifwa$=chr$(13)then1980
  181. 1910 sysat,10,ze,"    "
  182. 1920 ifwa$=""thenwa=wa+1:ze=ze+1
  183. 1930 ifwa$="[145]"thenwa=wa-1:ze=ze-1
  184. 1940 ifwa<1thenwa=1:ze=8
  185. 1950 ifwa>10thenwa=10:ze=17
  186. 1960 sysat,10,ze,"--->"
  187. 1970 goto1880
  188. 1980 onwagoto1990,2660,2990,3410,4530,4830,5070,5230,5710,6160
  189. 1990 gosub1160
  190. 2000 mn$="bitte daten eingeben"
  191. 2010 gosub1420
  192. 2020 ifna$=""then4530
  193. 2030 sysat,7,5,"d a t e n  e i n g e b e n"
  194. 2040 nr=nr+1
  195. 2050 sysat,2,8,"nummer.................:"nr
  196. 2060 sysat,2,10,"datum..................: ";
  197. 2070 lg=10
  198. 2080 al=1
  199. 2090 gosub790
  200. 2100 da$(nr)=in$
  201. 2110 sysat,2,12,"kilometerstand.........: ";
  202. 2120 lg=6
  203. 2130 al=0
  204. 2140 gosub790
  205. 2150 ki(nr)=val(in$)
  206. 2160 ifki(nr)<=ki(nr-1)thenprint"[145][145]":goto2110
  207. 2170 sysat,2,14,"gesamtpreis............: ";
  208. 2180 lg=5
  209. 2190 al=0
  210. 2200 gosub790
  211. 2210 ge(nr)=val(in$)
  212. 2220 ifge(nr)=0thenprint"[145][145]":goto2170
  213. 2230 sysat,2,16,"preis pro liter........: ";
  214. 2240 lg=5
  215. 2250 al=0
  216. 2260 gosub790
  217. 2270 pr(nr)=val(in$)
  218. 2280 ifpr(nr)=0thenprint"[145][145]":goto2230
  219. 2290 kg(nr)=ki(nr)-ki(nr-1)
  220. 2300 li(nr)=ge(nr)/pr(nr)
  221. 2310 ve(nr)=(li(nr)/kg(nr))*100
  222. 2320 ifve(nr)>1andve(nr)<50then2370
  223. 2330 sysat,2,18,"bitte daten ueberpruefen"
  224. 2340 nr=nr-1
  225. 2350 gosub1370
  226. 2360 goto1690
  227. 2370 mn$="richtig? return  ja      sonst  nein"
  228. 2380 gosub1420
  229. 2390 sys49298
  230. 2400 getri$
  231. 2410 ifri$<>chr$(13)thennr=nr-1:goto1690
  232. 2420 mn$="speichern? return  ja    sonst  nein"
  233. 2430 gosub1420
  234. 2440 sys49298
  235. 2450 getri$
  236. 2460 ifri$<>chr$(13)then2560
  237. 2470 gosub1210
  238. 2480 open2,8,2,na$+".dat,s,a"
  239. 2490 print#2,da$(nr)
  240. 2500 print#2,ki(nr)
  241. 2510 print#2,pr(nr)
  242. 2520 print#2,ge(nr)
  243. 2530 print#2,li(nr)
  244. 2540 print#2,ve(nr)
  245. 2550 close2
  246. 2560 gosub1160
  247. 2570 gosub1210
  248. 2580 sysat,13,5,"b e r i c h t"
  249. 2590 sysat,2,8,"letzter eintrag.........: "da$(nr-1)
  250. 2600 sysat,2,10,"zurueckgelegte strecke..:"kg(nr)
  251. 2610 sysat,2,12,"getankte liter..........:"li(nr)
  252. 2620 sysat,2,14,"verbrauch...............:"ve(nr)
  253. 2630 sysat,2,16,"reichweite pro liter....:"100/ve(nr)
  254. 2640 gosub1370
  255. 2650 goto1690
  256. 2660 gosub1160
  257. 2670 ifnr=0then4530
  258. 2680 sysat,5,5,"l e t z[160]t[160]e r  e i n t r a g"
  259. 2690 kg(nr)=ki(nr)-ki(nr-1)
  260. 2700 sysat,2,8,"datum..................: "da$(nr)
  261. 2710 sysat,2,10,"kilometerstand.........:"ki(nr)
  262. 2720 sysat,2,12,"zurueckgelegte strecke.:"kg(nr)
  263. 2730 sysat,2,14,"tankmenge..............:"li(nr)
  264. 2740 sysat,2,16,"verbrauch..............:"ve(nr)
  265. 2750 sysat,2,18,"reichweite pro liter...:"1/ve(nr)*100
  266. 2760 poke198,0
  267. 2770 mn$="ausdruck? return  ja     sonst  nein"
  268. 2780 gosub1420
  269. 2790 sys49298
  270. 2800 getri$
  271. 2810 ifri$=chr$(13)then2830
  272. 2820 goto1690
  273. 2830 gosub1450
  274. 2840 poke768,61
  275. 2850 open4,4
  276. 2860 cmd4
  277. 2870 printchr$(20)"name der datei = "na$
  278. 2880 print
  279. 2890 print"datum..................: "da$(nr)
  280. 2900 print"kilometerstand.........:"ki(nr)
  281. 2910 print"zurueckgelegte strecke.:"kg(nr)
  282. 2920 print"tankmenge..............:"li(nr)
  283. 2930 print"verbrauch..............:"ve(nr)
  284. 2940 print"reichweite pro liter...:"1/ve(nr)*100
  285. 2950 print#4
  286. 2960 close4
  287. 2970 gosub1450
  288. 2980 goto1690
  289. 2990 gosub1160
  290. 3000 mn$="bitte nummer des eintrags eingeben"
  291. 3010 gosub1420
  292. 3020 ifnr=0then4530
  293. 3030 sysat,7,5,"e i n t r a g  f i n d e n"
  294. 3040 sysat,2,8,"nummer des eintrags....: ";
  295. 3050 lg=3
  296. 3060 al=0
  297. 3070 gosub790
  298. 3080 gn=val(in$)
  299. 3090 ifgn<1then3040
  300. 3100 ifgn>nrthensysat,2,11,"eintrag n i c h t vorhanden !!!":gosub1370:goto1690
  301. 3110 sysat,2,8,"                                    "
  302. 3120 sysat,2,8,"datum..................: "da$(gn)
  303. 3130 sysat,2,10,"kilometerstand.........:"ki(gn)
  304. 3140 sysat,2,12,"zurueckgelegte strecke.:"ki(gn)-ki(gn-1)
  305. 3150 sysat,2,14,"tankmenge..............:"li(gn)
  306. 3160 sysat,2,16,"verbrauch..............:"ve(gn)
  307. 3170 sysat,2,18,"reichweite pro liter...:"1/ve(gn)*100
  308. 3180 poke198,0
  309. 3190 mn$="ausdruck? return  ja     sonst  nein"
  310. 3200 gosub1420
  311. 3210 sys49298
  312. 3220 getri$
  313. 3230 ifri$=chr$(13)then3250
  314. 3240 goto1690
  315. 3250 gosub1450
  316. 3260 poke768,61
  317. 3270 open4,4
  318. 3280 cmd4
  319. 3290 printchr$(20)"name der datei = "na$
  320. 3300 print
  321. 3310 print"datum..................: "da$(gn)
  322. 3320 print"kilometerstand.........:"ki(gn)
  323. 3330 print"zurueckgelegte strecke.:"ki(gn)-ki(gn-1)
  324. 3340 print"tankmenge..............:"li(gn)
  325. 3350 print"verbrauch..............:"ve(gn)
  326. 3360 print"reichweite pro liter...:"1/ve(gn)*100
  327. 3370 print#4
  328. 3380 close4
  329. 3390 gosub1450
  330. 3400 goto1690
  331. 3410 gosub1160
  332. 3420 ifnr=0then4530
  333. 3430 sysat,8,5,"s t a t i s t i k  ( 1 )"
  334. 3440 an=nr-34
  335. 3450 ifan<1thenan=1
  336. 3460 tl=0
  337. 3470 gl=0
  338. 3480 dk=0
  339. 3490 dl=0
  340. 3500 fori=0tonr
  341. 3510 tl=tl+li(i)
  342. 3520 gl=gl+ge(i)
  343. 3530 next
  344. 3540 min=10000000
  345. 3550 max=-10000000
  346. 3560 fori=antonr
  347. 3570 ifve(i)<min thenmin=ve(i)
  348. 3580 ifve(i)>maxthenmax=ve(i)
  349. 3590 next
  350. 3600 ifnr<5thendl=0:dk=1:goto3650
  351. 3610 dk=ki(nr)-ki(nr-5)
  352. 3620 fori=nr-4tonr
  353. 3630 dl=dl+li(i)
  354. 3640 next
  355. 3650 sysat,2,8,"vom "da$(0)" bis zum "da$(nr)
  356. 3660 sysat,2,10,"zahl der tankfuellungen.:"nr
  357. 3670 sysat,2,12,"gesamtpreis.............:"gl
  358. 3680 sysat,2,14,"preis pro tankfuellung..:"gl/nr
  359. 3690 sysat,2,16,"preis pro liter.........:"gl/tl
  360. 3700 sysat,2,18,"preis pro kilometer..pf.:"100*gl/(ki(nr)-ki(0))
  361. 3710 gosub1370
  362. 3720 gosub1160
  363. 3730 sysat,8,5,"s t a t i s t i k  ( 2 )"
  364. 3740 sysat,2,8,"gefahrene kilometer.....:"ki(nr)
  365. 3750 sysat,2,10,"durchschnittsstrecke....:"(ki(nr)-ki(0))/nr
  366. 3760 sysat,2,12,"maximale reichweite.....:"(ta*100)/min
  367. 3770 sysat,2,14,"minimale reichweite.....:"(ta*100)/max
  368. 3780 sysat,2,16,"mittlere reichweite.....:"(ta*100)/(tl*100/(ki(nr)-ki(0)))
  369. 3790 sysat,2,18,"reichweite pro liter....:"100/(tl*100/(ki(nr)-ki(0)))
  370. 3800 gosub1370
  371. 3810 gosub1160
  372. 3820 sysat,8,5,"s t a t i s t i k  ( 3 )"
  373. 3830 sysat,2,8,"liter insgesamt.........:"tl
  374. 3840 sysat,2,10,"liter durchschnitt......:"tl/nr
  375. 3850 sysat,2,12,"maximaler verbrauch.....:"max
  376. 3860 sysat,2,14,"minimaler verbrauch.....:"min
  377. 3870 sysat,2,16,"mittlerer verbrauch i...:"tl*100/(ki(nr)-ki(0))
  378. 3880 sysat,2,18,"mittlerer verbrauch ii..:"100*dl/dk
  379. 3890 poke198,0
  380. 3900 mn$="ausdruck? return  ja     sonst  nein"
  381. 3910 gosub1420
  382. 3920 sys49298
  383. 3930 getri$
  384. 3940 ifri$=chr$(13)thengosub4230
  385. 3950 print"[147]"
  386. 3960 ii$="s[157]t[157]a[157]t[157]i[157]s[157]t[157]i[157]k"
  387. 3970 sysat,1,5,ii$
  388. 3980 fori=4to38
  389. 3990 sysat,i,1,"[183]"
  390. 4000 sysat,i,20,"[183]"
  391. 4010 next
  392. 4020 fori=1to19
  393. 4030 sysat,3,i,"[170]"
  394. 4040 sysat,39,i,"[180]"
  395. 4050 next
  396. 4060 sysat,0,1,"max"
  397. 4070 sysat,0,19,"min"
  398. 4080 sysat,2,21,"[154]  [146] mini. verbr.     [150]  [146] maxi. verbr."
  399. 4090 sysat,2,22,"[153]  [146] unter durch.       [146] ueber durch."
  400. 4100 sysat,4,19,"";
  401. 4110 fori=antonr
  402. 4120 ifve(i)=<(tl*100/ki(nr))thencol=13
  403. 4130 ifve(i)>(tl*100/ki(nr))thencol=5
  404. 4140 ifve(i)=maxthencol=8
  405. 4150 ifve(i)=min thencol=14
  406. 4160 sys49152,(ve(i)-(min-.1))/(max-min+.1)*152,col
  407. 4170 next
  408. 4180 poke198,0
  409. 4190 sys49298
  410. 4200 print"[147][154]"
  411. 4210 gosub1210
  412. 4220 goto1580
  413. 4230 gosub1160
  414. 4240 sysat,10,5,"a u s d r u c k e n"
  415. 4250 gosub1450
  416. 4260 poke768,61
  417. 4270 open4,4
  418. 4280 cmd4
  419. 4290 printchr$(20)"name der datei = "na$
  420. 4300 print
  421. 4310 print"vom "da$(0)" bis zum "da$(nr)
  422. 4320 print"zahl der tankfuellungen.:"nr
  423. 4330 print"gesamtpreis.............:"gl
  424. 4340 print"preis pro tankfuellung..:"gl/nr
  425. 4350 print"preis pro liter.........:"gl/tl
  426. 4360 print"preis pro kilometer..pf.:"100*gl/(ki(nr)-ki(0))
  427. 4370 print"gefahrene kilometer.....:"ki(nr)
  428. 4380 print"durchschnittsstrecke....:"(ki(nr)-ki(0))/nr
  429. 4390 print"maximale reichweite.....:"(ta*100)/min
  430. 4400 print"minimale reichweite.....:"(ta*100)/max
  431. 4410 print"mittlere reichweite.....:"(ta*100)/(tl*100/(ki(nr)-ki(0)))
  432. 4420 print"reichweite pro liter....:"100/(tl*100/(ki(nr)-ki(0)))
  433. 4430 print"liter insgesamt.........:"tl
  434. 4440 print"liter durchschnitt......:"tl/nr
  435. 4450 print"maximaler verbrauch.....:"max
  436. 4460 print"minimaler verbrauch.....:"min
  437. 4470 print"mittlerer verbrauch i...:"tl*100/(ki(nr)-ki(0))
  438. 4480 print"mittlerer verbrauch ii..:"100*dl/dk
  439. 4490 print#4
  440. 4500 close4
  441. 4510 gosub1450
  442. 4520 return
  443. 4530 gosub1160
  444. 4540 mn$="bitte dateinamen eingeben"
  445. 4550 gosub1420
  446. 4560 sysat,10,5,"d a t e n  l a d e n"
  447. 4570 gosub1210
  448. 4580 sysat,2,8,"dateiname............: ";
  449. 4590 lg=12
  450. 4600 al=1
  451. 4610 gosub790
  452. 4620 na$=in$
  453. 4630 iflen(na$)<1then4580
  454. 4640 mn$="richtig? return  ja      sonst  nein"
  455. 4650 gosub1420
  456. 4660 sys49298
  457. 4670 getri$
  458. 4680 ifri$<>chr$(13)thenna$="":goto1690
  459. 4690 open15,8,15
  460. 4700 print#15,"i"
  461. 4710 close15
  462. 4720 gosub1210
  463. 4730 nr=-1
  464. 4740 open2,8,2,na$+".dat,s,r"
  465. 4750 input#2,ta
  466. 4760 nr=nr+1
  467. 4770 input#2,da$(nr),ki(nr),pr(nr)
  468. 4780 input#2,ge(nr),li(nr),ve(nr)
  469. 4790 ifst<>0thenclose2:goto4810
  470. 4800 goto4760
  471. 4810 gosub1210
  472. 4820 goto1690
  473. 4830 gosub1160
  474. 4840 mn$="bitte dateinamen eingeben"
  475. 4850 gosub1420
  476. 4860 sysat,8,5,"d a t e n  s i c h e r n"
  477. 4870 sysat,2,8,"dateiname............: ";
  478. 4880 lg=12
  479. 4890 al=1
  480. 4900 gosub790
  481. 4910 ds$=in$
  482. 4920 ifds$=""thends$=na$
  483. 4930 ifds$=""then4870
  484. 4940 mn$="richtig? return  ja      sonst  nein"
  485. 4950 gosub1420
  486. 4960 sys49298
  487. 4970 getri$
  488. 4980 ifri$<>chr$(13)then1690
  489. 4990 gosub1210
  490. 5000 open15,8,15,"s:"+ds$+".bak"
  491. 5010 close15
  492. 5020 gosub1210
  493. 5030 open15,8,15,"c:"+ds$+".bak="+ds$+".dat"
  494. 5040 close15
  495. 5050 gosub1210
  496. 5060 goto1690
  497. 5070 gosub1160
  498. 5080 sysat,2,5,"i n h a l t s v e r z e i c h n i s"
  499. 5090 gosub1210
  500. 5100 i=7
  501. 5110 open2,8,0,"$:????????????.???=seq"
  502. 5120 get#2,a$,a$
  503. 5130 e$=chr$(0)
  504. 5140 get#2,a$,a$,h$,l$
  505. 5150 ifstthenclose2:gosub1370:gosub1210:goto1690
  506. 5160 bl=asc(h$+e$)+256*asc(l$+e$)
  507. 5170 i=i+1
  508. 5180 ifi=19thengosub1370:gosub1170:i=7:goto5150
  509. 5190 sysat,5,i,bl;
  510. 5200 get#2,a$,b$
  511. 5210 ifa$thenprinta$b$;:goto5200
  512. 5220 printa$:goto5140
  513. 5230 gosub1160
  514. 5240 mn$="bitte dateinamen eingeben"
  515. 5250 gosub1420
  516. 5260 sysat,5,5,"e i n t r a g  l o e s c h e n"
  517. 5270 sysat,5,8,"es wird der letzte eintrag auf"
  518. 5280 sysat,12,10,"   diskette !!![146]"
  519. 5290 sysat,5,12,"geloescht !!!!"
  520. 5300 sysat,2,16,"dateiname............: ";
  521. 5310 lg=12
  522. 5320 al=1
  523. 5330 gosub790
  524. 5340 el$=in$
  525. 5350 ifel$=""thenel$=na$
  526. 5360 ifel$=""then5300
  527. 5370 mn$="richtig? return  ja      sonst  nein"
  528. 5380 gosub1420
  529. 5390 sys49298
  530. 5400 getri$
  531. 5410 ifri$<>chr$(13)then1690
  532. 5420 gosub1210
  533. 5430 nr=-1
  534. 5440 open2,8,2,el$+".dat,s,r"
  535. 5450 input#2,ta
  536. 5460 nr=nr+1
  537. 5470 input#2,da$(nr),ki(nr),pr(nr)
  538. 5480 input#2,ge(nr),li(nr),ve(nr)
  539. 5490 ifst<>0thenclose2:goto5510
  540. 5500 goto5460
  541. 5510 gosub1210
  542. 5520 ifnr=0then1690
  543. 5530 open15,8,15,"s:"+el$+".dat"
  544. 5540 close15
  545. 5550 gosub1210
  546. 5560 open2,8,2,el$+".dat,s,w"
  547. 5570 print#2,ta
  548. 5580 fori=0tonr-1
  549. 5590 print#2,da$(i)
  550. 5600 print#2,ki(i)
  551. 5610 print#2,pr(i)
  552. 5620 print#2,ge(i)
  553. 5630 print#2,li(i)
  554. 5640 print#2,ve(i)
  555. 5650 next
  556. 5660 close2
  557. 5670 nr=nr-1
  558. 5680 gosub1160
  559. 5690 gosub1210
  560. 5700 goto1690
  561. 5710 gosub1160
  562. 5720 gosub1210
  563. 5730 mn$="bitte daten eingeben"
  564. 5740 gosub1420
  565. 5750 sysat,11,5,"n e u e  d a t e i"
  566. 5760 sysat,2,8,"dateiname............: ";
  567. 5770 lg=12
  568. 5780 al=1
  569. 5790 gosub790
  570. 5800 n$=in$
  571. 5810 iflen(n$)<1then5760
  572. 5820 sysat,2,10,"datum................: ";
  573. 5830 lg=10
  574. 5840 al=1
  575. 5850 gosub790
  576. 5860 da$=in$
  577. 5870 sysat,2,12,"kilometerstand.......: ";
  578. 5880 lg=6
  579. 5890 al=0
  580. 5900 gosub790
  581. 5910 ki=val(in$)
  582. 5920 ifki<0then5870
  583. 5930 sysat,2,14,"maximaler tankinhalt.: ";
  584. 5940 lg=3
  585. 5950 al=0
  586. 5960 gosub790
  587. 5970 ta=val(in$)
  588. 5980 ifta<1then5930
  589. 5990 mn$="richtig? return  ja      sonst  nein"
  590. 6000 gosub1420
  591. 6010 sys49298
  592. 6020 getri$
  593. 6030 ifri$<>chr$(13)then1690
  594. 6040 gosub1210
  595. 6050 open2,8,2,n$+".dat,s,w"
  596. 6060 print#2,ta
  597. 6070 print#2,da$
  598. 6080 print#2,ki
  599. 6090 print#2,0
  600. 6100 print#2,0
  601. 6110 print#2,0
  602. 6120 print#2,0
  603. 6130 close2
  604. 6140 gosub1210
  605. 6150 goto1690
  606. 6160 gosub1160
  607. 6170 sysat,16,5,"e n d e"
  608. 6180 mn$="richtig? return  ja      sonst  nein"
  609. 6190 gosub1420
  610. 6200 sys49298
  611. 6210 getri$
  612. 6220 ifri$<>chr$(13)then1690
  613. 6230 sys64738
  614.